home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 0022-3.564 / dmg-3418 / gfa_prog.s / neo_load.lst next >
File List  |  1986-02-05  |  850b  |  15 lines
  1. ' *************************************************************************
  2. ' *                  Small Neo Chrome picture loader                      *
  3. ' *                         made in GFA basic                             *
  4. ' *                    By Bonus Software of the DBA                       *
  5. ' *************************************************************************
  6. '
  7. OPEN "i",#1,"a:\kid.neo"        ! open picture file...
  8. dummy$=INPUT$(4,#1)             ! skip resolution info...
  9. a$=INPUT$(32,#1)                ! read color info (16 colors)
  10. VOID XBIOS(6,L:VARPTR(a$))      ! setup colors...
  11. dummy$=INPUT$(92,#1)            ! skip animation info 128 bytes (92=128-4-32)
  12. BGET #1,XBIOS(2),32000          ! get the picture info
  13. CLOSE #1                        ! close picture file
  14. VOID INP(2)                     ! get key.
  15.